# (decoded with TMPL 11972) { %filename% } { Created %date% %time% by AppMaker } Unit %UnitName%; Interface Uses %If MPW% {$Load ToolBox.dump} MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, {$Load} %end if% %If Think% {$ifc undefined Think_Pascal} ListManager, {$endc} %end if% %UsesDialogs% Globals, ResourceDefs, DoScrap; {----------} Procedure Init%MenuName%; Procedure Do%MenuName% (itemNr: integer); {----------} Implementation %If MPW% {$D+} {$R+} {$OV+} %end if% %If MPW% {$S %unitname%} %end if% {----------} Procedure Init%MenuName%; Begin End; {Init%MenuName%} %DoMenuItems% {----------} Procedure Do%MenuName% {(itemNr: integer)}; Begin case itemNr of %HandleMenuItems% end; {case} End; {Do%MenuName%} End. {%UnitName%}